(FILECREATED "10-FEB-83 13:34:00" {PHYLUM}<GABRIEL>DIV2.;4 1686   

      changes to:  (FNS FTEST1 TEST1 TEST2 DV2 CREATEN DIV2)
		   (VARS DIV2COMS)

      previous date: "10-FEB-83 13:31:12" {PHYLUM}<GABRIEL>DIV2.;1)


(* Copyright (c) 1983 by RPG)

(PRETTYCOMPRINT DIV2COMS)

(RPAQQ DIV2COMS ((FNS CREATEN DIV2 DV2 FTEST1 TEST1 TEST2 FTEST2)
		 (VARS (L (CREATEN 200)))))
(DEFINEQ

(CREATEN
  (LAMBDA (n)                                                (* JonL "10-FEB-83 13:29")
    (to n collect NIL)))

(DIV2
  (LAMBDA (l)                                                (* JonL "10-FEB-83 13:27")
    (for L A on l by (CDDR L) do (push A (CAR L)) finally (RETURN A))))

(DV2
  (LAMBDA (l)                                                (* JonL "10-FEB-83 13:31")
    (if (NULL l)
	then NIL
      else (CONS (CAR l)
		 (DV2 (CDDR l))))))

(FTEST1
  (LAMBDA (L)                                                (* JonL "10-FEB-83 13:33")
    (FRPTQ 300 (PROGN (DIV2 L)
		      (DIV2 L)
		      (DIV2 L)
		      (DIV2 L)))))

(FTEST2
  (LAMBDA (L)                                                (* JonL "10-FEB-83 13:33")
    (FRPTQ 300 (PROGN (DV2 L)
		      (DV2 L)
		      (DV2 L)
		      (DV2 L)))))

(TEST1
  (LAMBDA (L)                                                (* JonL "10-FEB-83 13:33")
    (for I from 300 by -1 until (EQ I 0)
       do (PROGN (DIV2 L)
		 (DIV2 L)
		 (DIV2 L)
		 (DIV2 L)))))

(TEST2
  (LAMBDA (L)                                                (* JonL "10-FEB-83 13:33")
    (for I from 300 by -1 until (EQ I 0)
       do (PROGN (DV2 L)
		 (DV2 L)
		 (DV2 L)
		 (DV2 L)))))
)

(RPAQ L (CREATEN 200))
(PUTPROPS DIV2 COPYRIGHT ("RPG" 1983))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (376 1597 (CREATEN 386 . 523) (DIV2 525 . 722) (DV2 724 . 914) (FTEST1 916 . 1121) (
TEST1 1123 . 1360) (TEST2 1362 . 1595)))))
STOP